Unit
lmdformA

Declaration

TLMDMovingEvent = procedure(Sender:TObject; x,y:Integer; var Cancel:Boolean) of object;